home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Development Platforms / Macintosh Common Lisp Related / interfaces / PInterface Translator / 411-traps.lisp < prev    next >
Encoding:
Text File  |  1993-09-16  |  11.8 KB  |  599 lines  |  [TEXT/CCL2]
  1. (in-package :translate)
  2.  
  3. (def-411-trap getvideodefault :number '41088 :entry 'nil :exit 'nil) 
  4.  
  5. (def-411-trap killio :number '40966 :entry 'nil :exit 'nil) 
  6.  
  7. (def-411-trap handlezone :number
  8.   '41254
  9.   :entry
  10.   '((:a0 (h handle)))
  11.   :exit
  12.   '((:a0 (function result pointer)) (:d0 (result code word)))) 
  13.  
  14. (def-411-trap gettrapaddress :number
  15.   '41286
  16.   :entry
  17.   '((:d0 (trapnum word)))
  18.   :exit
  19.   '((:a0 (address of routine)))) 
  20.  
  21. (def-411-trap newhandle :number
  22.   '41250
  23.   :entry
  24.   '((:d0 (logicalsize long word)))
  25.   :exit
  26.   '((:a0 (function result handle)) (:d0 (result code word)))) 
  27.  
  28. (def-411-trap syserror :number
  29.   '43465
  30.   :entry
  31.   '((:d0 (errorcode word)))
  32.   :exit
  33.   'nil) 
  34.  
  35. (def-411-trap readdatetime :number
  36.   '41017
  37.   :entry
  38.   '((:a0 (pointer to long word secs)))
  39.   :exit
  40.   '((:a0 (pointer to long word secs)) (:d0 (result code word)))) 
  41.  
  42. (def-411-trap attachvbl :number
  43.   '41073
  44.   :entry
  45.   '((:d0 (theslot word)))
  46.   :exit
  47.   '((:d0 (result code word)))) 
  48.  
  49. (def-411-trap ptrzone :number
  50.   '41288
  51.   :entry
  52.   '((:a0 (p pointer)))
  53.   :exit
  54.   '((:a0 (function result pointer)) (:d0 (result code word)))) 
  55.  
  56. (def-411-trap ptrtoxhand :number
  57.   '43490
  58.   :entry
  59.   '((:a0 (srcptr pointer)) (:a1 (dsthndl handle)) (:d0 (size long word)))
  60.   :exit
  61.   '((:a0 (dsthndl handle)) (:d0 (result code word)))) 
  62.  
  63. (def-411-trap sethandlesize :number
  64.   '40996
  65.   :entry
  66.   '((:a0 (h handle)) (:d0 (newsize long word)))
  67.   :exit
  68.   '((:d0 (result code word)))) 
  69.  
  70. (def-411-trap ppostevent :number
  71.   '41263
  72.   :entry
  73.   '((:a0 (eventcode word)) (:d0 (eventmsg long word)))
  74.   :exit
  75.   '((:a0 (pointer to event queue entry)))) 
  76.  
  77. (def-411-trap delay :number
  78.   '41019
  79.   :entry
  80.   '((:a0 (numticks long word)))
  81.   :exit
  82.   '((:d0 (finalticks long word)))) 
  83.  
  84. (def-411-trap setappllimit :number
  85.   '41005
  86.   :entry
  87.   '((:a0 (zonelimit pointer)))
  88.   :exit
  89.   '((:d0 (result code word)))) 
  90.  
  91. (def-411-trap hgetstate :number
  92.   '41065
  93.   :entry
  94.   '((:a0 (h handle)))
  95.   :exit
  96.   '((:d0 (flags byte)))) 
  97.  
  98. (def-411-trap newemptyhandle :number
  99.   '41318
  100.   :entry
  101.   'nil
  102.   :exit
  103.   '((:a0 (function result handle)) (:d0 (result code word)))) 
  104.  
  105. (def-411-trap getfpos :number '40984 :entry 'nil :exit 'nil) 
  106.  
  107. (def-411-trap dtinstall :number
  108.   '41090
  109.   :entry
  110.   '((:a0 (dttaskptr pointer)))
  111.   :exit
  112.   '((:d0 (result code word)))) 
  113.  
  114. (def-411-trap sysenvirons :number '41104 :entry 'nil :exit 'nil) 
  115.  
  116. (def-411-trap writeparam :number
  117.   '41016
  118.   :entry
  119.   '((:a0 (sysparam pointer)) (:d0 (minusone long word)))
  120.   :exit
  121.   '((:d0 (result code word)))) 
  122.  
  123. (def-411-trap setptrsize :number
  124.   '40992
  125.   :entry
  126.   '((:a0 (p pointer)) (:d0 (newsize long word)))
  127.   :exit
  128.   '((:d0 (result code word)))) 
  129.  
  130. (def-411-trap stackspace :number
  131.   '41061
  132.   :entry
  133.   'nil
  134.   :exit
  135.   '((:d0 (function result word)))) 
  136.  
  137. (def-411-trap maxblock :number
  138.   '41057
  139.   :entry
  140.   'nil
  141.   :exit
  142.   '((:d0 (function result word)))) 
  143.  
  144. (def-411-trap oseventavail :number
  145.   '41008
  146.   :entry
  147.   '((:a0 (pointer to event record theevent)) (:d0 (eventmask word)))
  148.   :exit
  149.   '((:d0 (0 if non-null event returned or \–1 if null event)))) 
  150.  
  151. (def-411-trap stripaddress :number
  152.   '41045
  153.   :entry
  154.   '((:d0 (theaddress pointer)))
  155.   :exit
  156.   '((:d0 (function result pointer)))) 
  157.  
  158. (def-411-trap vremove :number
  159.   '41012
  160.   :entry
  161.   '((:a0 (vbltaskptr pointer)))
  162.   :exit
  163.   '((:d0 (result code word)))) 
  164.  
  165. (def-411-trap geteof :number '40977 :entry 'nil :exit 'nil) 
  166.  
  167. (def-411-trap handandhand :number
  168.   '43492
  169.   :entry
  170.   '((:a0 (ahndl handle)) (:a1 (bhndl handle)))
  171.   :exit
  172.   '((:a0 (bhndl handle)) (:d0 (result code word)))) 
  173.  
  174. (def-411-trap disposptr :number
  175.   '40991
  176.   :entry
  177.   '((:a0 (p pointer)))
  178.   :exit
  179.   '((:d0 (result code word)))) 
  180.  
  181. (def-411-trap resrvmem :number
  182.   '41024
  183.   :entry
  184.   '((:d0 (cbneeded long word)))
  185.   :exit
  186.   '((:d0 (result code word)))) 
  187.  
  188. (def-411-trap sintremove :number
  189.   '41078
  190.   :entry
  191.   '((:d0 (slot number word)) (:a0 (address of slot queue element)))
  192.   :exit
  193.   '((:d0 (error code)))) 
  194.  
  195. (def-411-trap nminstall :number
  196.   '41054
  197.   :entry
  198.   '((:d0 (low-order word #\: eventmask)))
  199.   :exit
  200.   '((:d0 (0 or event code word)))) 
  201.  
  202. (def-411-trap dovbltask :number
  203.   '41074
  204.   :entry
  205.   '((:d0 (theslot word)))
  206.   :exit
  207.   '((:d0 (result code word)))) 
  208.  
  209. (def-411-trap primetime :number
  210.   '41050
  211.   :entry
  212.   '((:a0 (tmtaskptr pointer)) (:d0 (count long word)))
  213.   :exit
  214.   '((:d0 (result code word)))) 
  215.  
  216. (def-411-trap getosdefault :number '41092 :entry 'nil :exit 'nil) 
  217.  
  218. (def-411-trap ptrtohand :number
  219.   '43491
  220.   :entry
  221.   '((:a0 (srcptr pointer)) (:d0 (size long word)))
  222.   :exit
  223.   '((:a0 (dsthndl handle)) (:d0 (result code word)))) 
  224.  
  225. (def-411-trap hnopurge :number
  226.   '41034
  227.   :entry
  228.   '((:a0 (h handle)))
  229.   :exit
  230.   '((:d0 (result code word)))) 
  231.  
  232. (def-411-trap setadbinfo :number
  233.   '41082
  234.   :entry
  235.   '((:a0 (pointer to parameter block)) (:d0 (adb address of the device byte)))
  236.   :exit
  237.   '((:d0 (result code byte)))) 
  238.  
  239. (def-411-trap maxmem :number
  240.   '41245
  241.   :entry
  242.   'nil
  243.   :exit
  244.   '((:d0 (function result long word)) (:a0 (grow long word)))) 
  245.  
  246. (def-411-trap setzone :number
  247.   '40987
  248.   :entry
  249.   '((:a0 (hz pointer)))
  250.   :exit
  251.   '((:d0 (result code word)))) 
  252.  
  253. (def-411-trap disposhandle :number
  254.   '40995
  255.   :entry
  256.   '((:a0 (h handle)))
  257.   :exit
  258.   '((:d0 (result code word)))) 
  259.  
  260. (def-411-trap gethandlesize :number
  261.   '40997
  262.   :entry
  263.   '((:a0 (h handle)))
  264.   :exit
  265.   '((:d0 (if >= 0 function result long word)))) 
  266.  
  267. (def-411-trap adddrive :number '41038 :entry 'nil :exit 'nil) 
  268.  
  269. (def-411-trap hlock :number
  270.   '41001
  271.   :entry
  272.   '((:a0 (h handle)))
  273.   :exit
  274.   '((:d0 (result code word)))) 
  275.  
  276. (def-411-trap swapmmumode :number
  277.   '41053
  278.   :entry
  279.   '((:d0 (mode byte)))
  280.   :exit
  281.   '((:d0 (mode byte)))) 
  282.  
  283. (def-411-trap getindadb :number
  284.   '41080
  285.   :entry
  286.   '((:a0 (pointer to parameter block))
  287.     (:d0 (entry index number #\; range = 1 countadbs byte)))
  288.   :exit
  289.   '((:d0 (positive value #\: current adb address byte)))) 
  290.  
  291. (def-411-trap getadbinfo :number
  292.   '41081
  293.   :entry
  294.   '((:a0 (pointer to parameter block)) (:d0 (adb address of the device byte)))
  295.   :exit
  296.   '((:d0 (result code byte)))) 
  297.  
  298. (def-411-trap hsetstate :number
  299.   '41066
  300.   :entry
  301.   '((:a0 (h handle)) (:d0 (flags byte)))
  302.   :exit
  303.   '((:d0 (result code word)))) 
  304.  
  305. (def-411-trap reallochandle :number
  306.   '40999
  307.   :entry
  308.   '((:a0 (h handle)) (:d0 (logicalsize long word)))
  309.   :exit
  310.   '((:d0 (result code word)))) 
  311.  
  312. (def-411-trap hsetrbit :number
  313.   '41063
  314.   :entry
  315.   '((:a0 (h handle)))
  316.   :exit
  317.   '((:d0 (result code word)))) 
  318.  
  319. (def-411-trap setdefaultstartup :number '41086 :entry 'nil :exit 'nil) 
  320.  
  321. (def-411-trap adbop :number
  322.   '41084
  323.   :entry
  324.   '((:a0 (pointer to parameter block)) (:d0 (commandnum byte)))
  325.   :exit
  326.   '((:d0 (result code byte)))) 
  327.  
  328. (def-411-trap uprstring :number '41044 :entry 'nil :exit 'nil) 
  329.  
  330. (def-411-trap setfpos :number '41028 :entry 'nil :exit 'nil) 
  331.  
  332. (def-411-trap enqueue :number
  333.   '43375
  334.   :entry
  335.   '((:a0 (qentry pointer)) (:a1 (thequeue pointer)))
  336.   :exit
  337.   '((:a1 (thequeue pointer)))) 
  338.  
  339. (def-411-trap instime :number
  340.   '41048
  341.   :entry
  342.   '((:a0 (tmtaskptr pointer)))
  343.   :exit
  344.   '((:d0 (result code word)))) 
  345.  
  346. (def-411-trap setgrowzone :number
  347.   '41035
  348.   :entry
  349.   '((:a0 (growzone pointer)))
  350.   :exit
  351.   '((:d0 (result code word)))) 
  352.  
  353. (def-411-trap purgemem :number
  354.   '41037
  355.   :entry
  356.   '((:d0 (cbneeded long word)))
  357.   :exit
  358.   '((:d0 (result code word)))) 
  359.  
  360. (def-411-trap recoverhandle :number
  361.   '41256
  362.   :entry
  363.   '((:a0 (p pointer)))
  364.   :exit
  365.   '((:a0 (function result handle)) (:d0 (unchanged)))) 
  366.  
  367. (def-411-trap movehhi :number
  368.   '41060
  369.   :entry
  370.   '((:a0 (h handle)))
  371.   :exit
  372.   '((:d0 (result code word)))) 
  373.  
  374. (def-411-trap ptrandhand :number
  375.   '43503
  376.   :entry
  377.   '((:a0 (pntr pointer)) (:a1 (hndl handle)) (:d0 (size long word)))
  378.   :exit
  379.   '((:a0 (hndl handle)) (:d0 (result code word)))) 
  380.  
  381. (def-411-trap rename :number '40971 :entry 'nil :exit 'nil) 
  382.  
  383. (def-411-trap freemem :number
  384.   '40988
  385.   :entry
  386.   'nil
  387.   :exit
  388.   '((:d0 (function result long word)))) 
  389.  
  390. (def-411-trap purgespace :number
  391.   '41314
  392.   :entry
  393.   'nil
  394.   :exit
  395.   '((:a0 (contig long word)) (:d0 (total long word)))) 
  396.  
  397. (def-411-trap vinstall :number
  398.   '41011
  399.   :entry
  400.   '((:a0 (vbltaskptr pointer)))
  401.   :exit
  402.   '((:d0 (result code word)))) 
  403.  
  404. (def-411-trap eject :number '40983 :entry 'nil :exit 'nil) 
  405.  
  406. (def-411-trap seteof :number '40978 :entry 'nil :exit 'nil) 
  407.  
  408. (def-411-trap handtohand :number
  409.   '43489
  410.   :entry
  411.   '((:a0 (thehndl handle)))
  412.   :exit
  413.   '((:a0 (thehndl handle)) (:d0 (result code word)))) 
  414.  
  415. (def-411-trap secs2date :number
  416.   '43462
  417.   :entry
  418.   '((:d0 (secs long word)))
  419.   :exit
  420.   '((:a0 (pointer to date/time record)))) 
  421.  
  422. (def-411-trap setdatetime :number
  423.   '41018
  424.   :entry
  425.   '((:d0 (secs long word)))
  426.   :exit
  427.   '((:d0 (result code word)))) 
  428.  
  429. (def-411-trap getosevent :number
  430.   '41009
  431.   :entry
  432.   '((:a0 (pointer to event record theevent)) (:d0 (eventmask word)))
  433.   :exit
  434.   '((:d0 (0 if non-null event returned or \–1 if null event)))) 
  435.  
  436. (def-411-trap setvideodefault :number '41089 :entry 'nil :exit 'nil) 
  437.  
  438. (def-411-trap status :number '40965 :entry 'nil :exit 'nil) 
  439.  
  440. (def-411-trap compactmem :number
  441.   '41036
  442.   :entry
  443.   '((:d0 (cbneeded long word)))
  444.   :exit
  445.   '((:d0 (function result long word)))) 
  446.  
  447. (def-411-trap getptrsize :number
  448.   '40993
  449.   :entry
  450.   '((:a0 (p pointer)))
  451.   :exit
  452.   '((:d0 (if >= 0 function result long word)))) 
  453.  
  454. (def-411-trap hpurge :number
  455.   '41033
  456.   :entry
  457.   '((:a0 (h handle)))
  458.   :exit
  459.   '((:d0 (result code word)))) 
  460.  
  461. (def-411-trap slotvinstall :number
  462.   '41071
  463.   :entry
  464.   '((:a0 (vbltaskptr pointer)) (:d0 (theslot word)))
  465.   :exit
  466.   '((:d0 (result code word)))) 
  467.  
  468. (def-411-trap hclrrbit :number
  469.   '41064
  470.   :entry
  471.   '((:a0 (h handle)))
  472.   :exit
  473.   '((:d0 (result code word)))) 
  474.  
  475. (def-411-trap settrapaddress :number
  476.   '41031
  477.   :entry
  478.   '((:a0 (trapaddr address)) (:d0 (trapnum word)))
  479.   :exit
  480.   'nil) 
  481.  
  482. (def-411-trap setapplbase :number
  483.   '41047
  484.   :entry
  485.   '((:a0 (startptr pointer)))
  486.   :exit
  487.   '((:d0 (result code word)))) 
  488.  
  489. (def-411-trap slotvremove :number
  490.   '41072
  491.   :entry
  492.   '((:a0 (vbltaskptr pointer)) (:d0 (theslot word)))
  493.   :exit
  494.   '((:d0 (result code word)))) 
  495.  
  496. (def-411-trap control :number '40964 :entry 'nil :exit 'nil) 
  497.  
  498. (def-411-trap initutil :number
  499.   '41023
  500.   :entry
  501.   'nil
  502.   :exit
  503.   '((:d0 (result code word)))) 
  504.  
  505. (def-411-trap setosdefault :number '41091 :entry 'nil :exit 'nil) 
  506.  
  507. (def-411-trap alloccontig :number '41488 :entry 'nil :exit 'nil) 
  508.  
  509. (def-411-trap hunlock :number
  510.   '41002
  511.   :entry
  512.   '((:a0 (h handle)))
  513.   :exit
  514.   '((:d0 (result code word)))) 
  515.  
  516. (def-411-trap blockmove :number
  517.   '41006
  518.   :entry
  519.   '((:a0 (sourceptr pointer)) (:a1 (destptr pointer))
  520.     (:d0 (bytecount long word)))
  521.   :exit
  522.   '((:d0 (result code word)))) 
  523.  
  524. (def-411-trap relstring :number '41040 :entry 'nil :exit 'nil) 
  525.  
  526. (def-411-trap sintinstall :number
  527.   '41077
  528.   :entry
  529.   '((:d0 (slot number word)) (:a0 (address of slot queue element)))
  530.   :exit
  531.   '((:d0 (error code)))) 
  532.  
  533. (def-411-trap dequeue :number
  534.   '43374
  535.   :entry
  536.   '((:a0 (qentry pointer)) (:a1 (thequeue pointer)))
  537.   :exit
  538.   '((:a1 (thequeue pointer)) (:d0 (result code word)))) 
  539.  
  540. (def-411-trap newptr :number
  541.   '41246
  542.   :entry
  543.   '((:d0 (logicalsize long word)))
  544.   :exit
  545.   '((:a0 (function result pointer)) (:d0 (result code word)))) 
  546.  
  547. (def-411-trap date2secs :number
  548.   '43463
  549.   :entry
  550.   '((:a0 (pointer to date/time record)))
  551.   :exit
  552.   '((:d0 (secs long word)))) 
  553.  
  554. (def-411-trap countadbs :number
  555.   '41079
  556.   :entry
  557.   'nil
  558.   :exit
  559.   '((:d0 (number of devices byte)))) 
  560.  
  561. (def-411-trap create :number '40968 :entry 'nil :exit 'nil) 
  562.  
  563. (def-411-trap getzone :number
  564.   '41242
  565.   :entry
  566.   'nil
  567.   :exit
  568.   '((:a0 (function result pointer)) (:d0 (result code word)))) 
  569.  
  570. (def-411-trap initzone :number
  571.   '40985
  572.   :entry
  573.   '((:a0 (pointer to parameter block)))
  574.   :exit
  575.   '((:d0 (result code word)))) 
  576.  
  577. (def-411-trap rmvtime :number
  578.   '41049
  579.   :entry
  580.   '((:a0 (tmtaskptr pointer)))
  581.   :exit
  582.   '((:d0 (result code word)))) 
  583.  
  584. (def-411-trap getdefaultstartup :number '41085 :entry 'nil :exit 'nil) 
  585.  
  586. (def-411-trap emptyhandle :number
  587.   '41003
  588.   :entry
  589.   '((:a0 (h handle)))
  590.   :exit
  591.   '((:a0 (h handle)) (:d0 (result code word)))) 
  592.  
  593. (def-411-trap postevent :number
  594.   '41007
  595.   :entry
  596.   '((:a0 (eventcode word)) (:d0 (eventmsg long word)))
  597.   :exit
  598.   '((:d0 (result code word)))) 
  599.